Rbund = 2.32 (slider from 1 to 5, step 0.001)
Rtop = 3.16 (slider from 1 to 10, step 0.001)
højde = 6.355 (slider from 1 to 10, step 0.001)
Bundcirkel = CurveCartesian((Rbund * cos(t)), (Rbund * sin(t)), 0, t, 0, (2 * pi))
Topcirkel = CurveCartesian((Rtop * cos(t)), (Rtop * sin(t)), højde, t, 0, (2 * pi))
deltav = 2.0245819323134224 rad (slider from 0 to 180°, step 0.01°)
f = Segment((Rbund, 0, 0), ((Rtop * cos(deltav)), (Rtop * sin(deltav)), højde))
l1 = Sequence(Segment[((Rbund * cos((15 * j°))), (Rbund * sin((15 * j°))), 0), ((Rtop * cos((15 * j°) + deltav)), (Rtop * sin((15 * j°) + deltav)), højde)], j, 0, 23)